﻿Imports MICROFORMA.BEL
Imports MICROFORMA.DAL

Public Class DataIndexBL
    Dim _dataIndex As DataIndexDA

    Public Function ObtenerRegistros() As List(Of DataIndex)
        _dataIndex = New DataIndexDA
        Return _dataIndex.ObtenerDatos
    End Function

    Public Function AgregarDataIndex(ByVal _daIndex As MICROFORMA.BEL.DataIndex) As Integer
        _dataIndex = New DataIndexDA
        Return _dataIndex.Agregar(_daIndex)
    End Function

    Public Function ObtenerNombresNodo(ByVal _idDocumento As Int16) As List(Of DataIndex)
        _dataIndex = New DataIndexDA
        Return _dataIndex.ObtenerNombresNodo(_idDocumento)
    End Function
End Class
